home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / higgs-lobster.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  977 b   |  39 lines
  1. # --- L-System Parser/Mutator --- Martin Higgs -----------
  2. # --- This file produces a crustation like form.
  3. 13  # recursion
  4. 20  # angle
  5. 30  # thickness
  6. A
  7. A=|[B][[C][P]][M]['''&M][''''&&M] # --- The complete crustation ---
  8. # --- body
  9. B=[+(80)[aaaaa]][-(80)[bbbbb]]&'[B]
  10. a=>-"[F'''c(14)Fc(5)D[c(4)'''''''{-f+f+f-|-f+f+f}]]
  11. b=<+"[F'''c(14)Fc(5)E[c(4)'''''''{-f+f+f-|-f+f+f}]]
  12. D=!!!!!''''''dddd
  13. E=!!!!!''''''eeee
  14. d=$tZ++Z-             # tropism added to tendrils
  15. e=$tZ--Z+              #    "      "   "     "
  16. #
  17. # --- complete claw
  18. M=^[[NZ][OZ]]
  19. N=++<<'''^^???????!!!c(11)-(85)FF'F[---'(.275)W]nnnnnn
  20. O=-->>'''^^???????!!!c(11)+(85)FF'F[+++'(.275)Q]oooooo
  21. #
  22. # --- claw teeth
  23. n=+(10)'F[++++!!!c(10)'''F''F''F''F]
  24. o=-(10)'F[----!!!c(10)'''F''F''F''F]
  25. #
  26. # --- claw whiskers
  27. W=+c(7)&(7)!wwwwwwwwwwwww
  28. w=+(10)FF'
  29. Q=-c(7)&(7)!qqqqqqqqqqqqq
  30. q=-(10)FF'
  31. #
  32. # --- antenna
  33. C=+(65)'''''''''c(9)F>>>>>>&&&wlwlwlwl
  34. P=-(65)'''''''''c(9)F<<<<<<&&&qsqsqsqs
  35. r=c(3)[{-f+f+f-|-f+f+f}]
  36. s=[+r][w'r]
  37. l=[-r][q'r]
  38. @
  39.